covid_plotly

Datos del la Secretaría de Salud, Gobierno de México Fuente de los datos: https://datos.gob.mx/busca/dataset/informacion-referente-a-casos-covid-19-en-mexico Datos crudos: https://www.gob.mx/salud/documentos/datos-abiertos-152127

El archivo “qro_raw_210513.csv” contiene los datos para el 13 de mayo de 2021, filtrado para los residentes del estado de Querétaro.

qro_raw <- readr::read_csv("qro_raw_210513.csv")

## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   .default = col_double(),
##   FECHA_ACTUALIZACION = col_date(format = ""),
##   ID_REGISTRO = col_character(),
##   ENTIDAD_UM = col_character(),
##   ENTIDAD_NAC = col_character(),
##   MUNICIPIO_RES = col_character(),
##   FECHA_INGRESO = col_date(format = ""),
##   FECHA_SINTOMAS = col_date(format = ""),
##   FECHA_DEF = col_date(format = ""),
##   PAIS_NACIONALIDAD = col_character()
## )
## ℹ Use `spec()` for the full column specifications.

qro_covid_pos <- qro_raw %>%
      
      mutate(sexo = case_when(SEXO == 1 ~ "Mujer",
                              SEXO == 2 ~ "Hombre",
                              SEXO == 99 ~ NA_character_),
             tipo_paciente = case_when(TIPO_PACIENTE == 1 ~ "Ambulatorio",
                                       TIPO_PACIENTE == 2 ~ "Hospitalizado",
                                       TIPO_PACIENTE == 99 ~ NA_character_)) %>%
      filter(RESULTADO_LAB == 1) %>%
      ggplot(aes(x = FECHA_INGRESO, fill = as.factor(tipo_paciente))) +
      geom_bar() +
      labs(x = "Fecha de visita", y = "Total",
           title = "Pacientes positivos en el Edo. de Querétaro (muertos en morado)",
           caption = "Fuente: Dirección General de Epidemiología, Gobierno de México") +
      scale_fill_manual(name = "Tipo de paciente", 
                        labels = c("Ambulatorio", "Hospitalizado"),
                        values = c("blue", "red")) +
      geom_bar(aes(x = FECHA_DEF), fill = "purple") +
      theme_classic()

ggplotly(qro_covid_pos)

def_emb <- filter(qro_raw, RESULTADO_LAB == 1, EMBARAZO == 1, !is.na(FECHA_DEF)) %>%
      nrow()
qro_covid_emb <- qro_raw %>%
      mutate(sexo = case_when(SEXO == 1 ~ "Mujer",
                              SEXO == 2 ~ "Hombre",
                              SEXO == 99 ~ NA_character_),
             tipo_paciente = case_when(TIPO_PACIENTE == 1 ~ "Ambulatorio",
                                       TIPO_PACIENTE == 2 ~ "Hospitalizado",
                                       TIPO_PACIENTE == 99 ~ NA_character_)) %>%
      filter(RESULTADO_LAB == 1, EMBARAZO == 1) %>%
      ggplot(aes(x = FECHA_INGRESO, y = EDAD, color = as.factor(TIPO_PACIENTE))) +
      geom_point() +
      labs(x = "Fecha de ingreso", y = "Edad",
           title = "Mujeres embarazadas positivas para el virus en Edo. de Querétaro",
           subtitle = paste0("Número de defunciones: ", def_emb),
           caption = "Fuente: Dirección General de Epidemiología, Gobierno de México") +
      scale_color_manual(name = "Tipo de paciente", 
                        labels = c("Ambulatoria", "Hospitalizada"),
                        values = c("blue", "red")) +
      ylim(c(0, 50)) +
      theme_classic()

ggplotly(qro_covid_emb, tooltip = c("FECHA_INGRESO", "EDAD"))